setdisplay(400,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
a$=""
while(lcase$(a$)<>"yes")
   a$=inputS("do you want to quit? (yes|no) >","no")
 wend
